Hallo,
wer kann mir weiterhelfen, ich möchte meine Tabelle den Blattschutz mittels Makroabfrage - Eingabe Passwort -
aufheben.
Kommen nicht weiter - Danke!
LG Ubi5
Ubi5 Gast |
Excel 2013 - Blattschutz mittels Makro aufheben
Antworten zu Excel 2013 - Blattschutz mittels Makro aufheben:
Diese beiden makro funktionieren einwandfrei. Ich möchte nur, dass beim Aufheben das Passwort abgefragt wird.
Danke - LG Ubi5!
Sub Blattschutz()
'
' Blattschutz Makro
'
ActiveSheet.Protect Password:="Biene"
'
End Sub
Sub Blattschutz_aufheben()
'
' Blattschutz_aufheben Makro
'
ActiveSheet.Unprotect Password:="Biene"
End Sub
Dr.Nope (55.004) Global Moderator  1250x Beste Antwort 2593x "Danke"
| Re: Excel 2013 - Blattschutz mittels Makro aufheben |
Hat dir diese Antwort geholfen?
Aso. Dann probier mal im 2. Makro das aus:
Code: [Auswählen]
Sub Blattschutz_aufheben()
Dim Passwort As String
'
' Blattschutz_aufheben Makro
'
Passwort = InputBox("Bitte Kennwort eingeben", "Eingabefeld", "Hier eingeben", 1, 1)
If Passwort = "Biene" Then
ActiveSheet.Unprotect
Else
MsgBox "Falsches Kennwort"
End If
funktioniert leider nicht -
Fehler beim Kompilieren Sub oder Funktion nicht definiert
LG Ubi5
Sub Blattschutz()
'
' Blattschutz Makro
'
ActiveSheet.Protect Password:="Biene"
'
End Sub
Sub Blattschutz_aufheben()
Dim Passwort As String
'
' Blattschutz_aufheben Makro
'
Passwort = InputBox("Bitte Kennwort eingeben", "Eingabefeld", "Hier eingeben", 1, 1)
If Passwort = "Biene" Then
ActiveSheet.Unprotect
Else
MsgBox "Falsches Kennwort"
End If
Gefunden bei http://www.computerhilfen.de
Dr.Nope (55.004) Global Moderator 1250x Beste Antwort 2593x "Danke"
| Re: Excel 2013 - Blattschutz mittels Makro aufheben |
Hat dir diese Antwort geholfen?
Noch mal das 2. Makro komplett
Code: [Auswählen]
Sub Blattschutz_aufheben()
Dim Passwort As String
'
' Blattschutz_aufheben Makro
'
Passwort = InputBox("Bitte Kennwort eingeben", "Eingabefeld", "Hier eingeben", 1, 1)
If Passwort = "Biene" Then
ActiveSheet.Unprotect
Else
MsgBox "Falsches Kennwort"
End If
End Sub
Funktioniert leider nicht - siehe Anhang!
Schutz.PNG| « Tool zum Anzeigen der Lautstärkepegel einzelner Programme | Notebook nach start unbenutzbar » | ||
Schnelle Hilfe: Hier nach ähnlichen Fragen und passenden Tipps suchen!