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 (54.967) Global Moderator  1120x Beste Antwort 2060x "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 (54.967) Global Moderator 1120x Beste Antwort 2060x "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.PNGGeht das nicht mit Bordmitteln ?
Ich halte Excel mit Makro-Zulassung für bedenklich ...
Bei mir ist der Zugang direkt geschützt .
Sieht bei mir SO aus ...
Dr.Nope (54.967) Global Moderator 1120x Beste Antwort 2060x "Danke"
| Re: Excel 2013 - Blattschutz mittels Makro aufheben |
Hat dir diese Antwort geholfen?
Das ist das 2. Fenster, er wollte davor ja noch eine Abfrage haben .
Problem ist, dass bei diesem 2. Fenster bei falschem Passwort eine Systemfehlermeldung von VBA kommt statt einer anständigen.
Ich habs noch mal geändert, kommt nur noch die eine Abfrage mit Meldung wenn falsches Kennwort und das 2. gar nicht mehr.
Problem ist, dass bei diesem 2. Fenster bei falschem Passwort eine Systemfehlermeldung von VBA kommt statt einer anständigen.
Ich habs noch mal geändert, kommt nur noch die eine Abfrage mit Meldung wenn falsches Kennwort und das 2. gar nicht mehr.
| « Tool zum Anzeigen der Lautstärkepegel einzelner Programme | Notebook nach start unbenutzbar » | ||
Schnelle Hilfe: Hier nach ähnlichen Fragen und passenden Tipps suchen!