Hallo,
Ik gebruik onderstaande code om een gedeelte van tabblad bereikbaar te maken.
Code werkt, ik kan binnen deze range alles invullen wat ik wil in de vrij gegeven cellen.
Maar loop nu tegen het probleem aan dat ik geen Opmerkingen kan toevoegen aan de vrij gegeven cellen.
Als ik het hele tabblad vrij geef, is het wel mogelijk, maar dat is nu net niet de bedoeling.
Is dit mogelijk , ….en zo ja, hoe dit dan te doen ?
Gr,
Ik gebruik onderstaande code om een gedeelte van tabblad bereikbaar te maken.
Code werkt, ik kan binnen deze range alles invullen wat ik wil in de vrij gegeven cellen.
Maar loop nu tegen het probleem aan dat ik geen Opmerkingen kan toevoegen aan de vrij gegeven cellen.
Als ik het hele tabblad vrij geef, is het wel mogelijk, maar dat is nu net niet de bedoeling.
Is dit mogelijk , ….en zo ja, hoe dit dan te doen ?
Code:
Private Sub CommandButton2_Click()
Dim PW As String
PW = Blad1.Range("B10")
If InputBox("Wachtwoord ingeven aub") = PW Then
Blad2.Unprotect Password:=PW
Blad2.Range("H17:NI28").Locked = False
Blad2.Range("C35:NI47").Locked = False
Blad1.Visible = xlSheetVisible
Blad3.Visible = xlSheetVisible
Blad2.Protect Password:=PW
Else
MsgBox "Foutief wachtwoord!"
End If
End Sub
Private Sub CommandButton3_Click()
Dim PW As String
PW = Blad1.Range("B10")
Blad2.Unprotect Password:=PW
Blad2.Range("H17:NI28").Locked = True
Blad2.Range("C35:NI47").Locked = True
Blad2.Protect Password:=PW
Blad1.Visible = xlSheetHidden
Blad3.Visible = xlSheetHidden
End Sub
Gr,