Blattschutz aktivieren

Computer: Software & Programmierung Visual Basic
#1

Hi,
ich habe eine Tabelle, die ich per Blattschutz schütze.
Um Daten ändern zu können, öffnet sich eine Userform per Button. Beim öffnen wird der Blattschutz aufgehoben, so das die Änderungen auch in die Tabelle übernommen werden.
Bei einem Klick auf „Abbrechen“ oder „Übernehmen/Zurück“ wird die Userform geschlossen, die Änderungen übernommen (oder auch nicht)und der Blattschutz soll wieder aktiv werden ohne Kennwordeingabe.
Das Deaktivieren habe ich hinbekommen aber das Aktivieren klappt nicht.

mfg Boyscout

#2

ich habe eine Tabelle, die ich per Blattschutz schütze.
Um Daten ändern zu können, öffnet sich eine Userform per
Button. Beim öffnen wird der Blattschutz aufgehoben, so das
die Änderungen auch in die Tabelle übernommen werden.
Bei einem Klick auf „Abbrechen“ oder „Übernehmen/Zurück“ wird
die Userform geschlossen, die Änderungen übernommen (oder auch
nicht)und der Blattschutz soll wieder aktiv werden ohne
Kennwordeingabe.
Das Deaktivieren habe ich hinbekommen aber das Aktivieren
klappt nicht.

hallo Boyscout,

und nun, wie sollen wir dir helfen?
Wenn du unprotect hinkriegst, warum dann nicht protect?

Zeige mal bitte die relevanten Codes.

Gruß
Reinhard

#3

Guten Tag,
Das ist der „Abbruch“-Button:
_______________________________________________
Private Sub CommandButton9_Click()
End
End Sub
_________________________________________________
Wenn ich den anklicke, soll sich der Blattschutz aktivieren. Also kommt noch der Zusatz ActiveSheet.Protect hinzu.
___________________________________________
Private Sub CommandButton9_Click()
End
ActiveSheet.Protect
End Sub
____________________________________________

… aber der Blattschutz wird nicht aktiviert.
Ich will nur den Blattschutz für die Zeit aufheben, solange die Userform geöffnet ist und sofern sie wieder geschlossen wird, über „Abbruch“ oder „Übernehmen“, soll dieser wieder aktiv werden.

mfg

1 Like
#4

Hi Boyscout,

bei mir unter Excel2003 funktioniert’s, wenn ich die Parameter mit angabe:

ActiveSheet.Protect ,true,true

M.

#5

Hallo,
nachdem ich über 2 Std. das internet durchwühlt und nichts gefunden habe, das mir weiterhelfen konnte, kam ich auf die wahnsinns Idee, die Befehlsfolge zu tauschen.
Ein Verzweiflungsversuch bevor mein Rechner daran glauben sollte :frowning:
Plötzlich funktioniert es - keine Ahnung warum :smile:

mfg

#6

Hi,

nachdem ich Deine Antwort gelesen habe: ich hab’ echt nicht aufgepaßt: nach END steigt Word aus, alle weiteren Befehle werden nicht abgearbeitet. Damit ist klar, daß a) Du intuitiv die Lösung gefunden hast, und b) ich nicht genau gelesen habe. Das hätte mir auch auffallen müssen.

Gruß

Markus

#7

Ja, da ich ein blutiger Anfänger auf diesem Gebiet bin, kann es schon sein, dass ich manchmal den Wald vor lauter Bäumen nicht mehr sehe.
Jetzt funktioniert es aber wie ich es mir vorgestellt habe.
Wird die Userform geöffnet schaltet sich der Blattschutz ab - schließe ich die Userform wieder, wird er aktiviert. Der Befehl dafür war nur falsch platziert - hat mich aber Nerven gekostet :smile:

mfg