Protect ark

2)
Private Sub Workbook_Open()
    Sheets(1).Select
End Sub

1)

Prøv denne her:


Const sKode As String = "1234"

Public Function BeskytArk() 
  ActiveSheet.Protect Password:=sKode 
End Function

Public Function FjernArkBeskyttelse()
  ActiveSheet.Unprotect Password:=sKode
End Function

Jeg har prøvet noget lignende nemlig:
ActiveSheet.Protect  (Uden password)
Men lagt i 3 arks Worksheed_Activate gjorde jeg ikke kunne gå fra det ene ark til det andet. Alt var spærret af så mit spørgsmål er hvor skal de lægges (Nb jeg skal ikke have password, men det kan måske ikke undgås)

Hej


1)
I VBA kan du f.eks oprette et nyt mondul navngiv mondulet med f.eks. "Adgangskode"

2)
Sæt koden ind i mondulet
Hvis du ikke ønsker låst med kodeord du blot fjerne 1234 mellem de to anførselstegn

3)
I VBA-koden på de ark som skal låses op skriver du koden "FjernArkBeskyttelse" når der skal låses op, og når der igen skal låses skriver du koden "BeskytArk"

Tak for hjælpen
Vil i lave det så i kan få point

Håber du fik løst dit problem ?

Herer et svar