wenn ich meine tabelle mit einem passwort schütze kann ich die commandbuttons auch nicht mehr anklicken.
wie kann ich die commandbuttons vom schutz befreien?
danke
doris
Sub Setzen()
Const PwPerfekt = "123"
Application.ScreenUpdating = False
'MsgBox "Passwort = " & PwPerfekt 'Box dient nur zum Veranschaulichen
Dim Pwd As String
Pwd = Application.InputBox("Passwort eingeben")
If Pwd = PwPerfekt Then
Worksheets("db").Protect Password:=Pwd, UserInterfaceOnly:=True
Else
MsgBox "Passwort-Fehler"
End If
Application.ScreenUpdating = True
End Sub
vieleicht sollte ich an der prozedur was ändern aber was?
bitte bitte
doris
Private Sub CommandButton1_Click()
Const PwPerfekt = "123"
Application.ScreenUpdating = False
'MsgBox "Passwort = " & PwPerfekt 'Box dient nur zum Veranschaulichen
Dim Pwd As String
Pwd = Application.InputBox("Passwort eingeben")
If Pwd = PwPerfekt Then
Worksheets("db").Protect Password:=Pwd, UserInterfaceOnly:=True
Else
MsgBox "Passwort-Fehler"
End If
Application.ScreenUpdating = True
End Sub.
Gruß, Rene
kann ich die commandbuttons auch nicht mehr anklicken
ich schon.
Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe