Microsoft Excel

Herbers Excel/VBA-Archiv

Bewerten Sie hier bitte das Excel-Portal

Der kurze Weg zum Ziel: Auftragsprogrammierung

Blattschutz ein/ aus mit kennwort

Betrifft: Blattschutz ein/ aus mit kennwort von: Andy
Geschrieben am: 08.09.2004 15:02:09

Hallo

Ich habe zwei codes, jeweils um den Blattschutz mit kennwort ein und auszuschalten.
Warum kann man dann den Blattschutz nicht manuell entfernen, auch wenn das gleiche Kennwort eingegeben wird? Es erscheint eine Meldung dass geprüft werden soll ob die schreibweise korrekt ist. die schreibweise ist aber richtig..

Danke
Andy

  


Betrifft: Klemmt die Shift-Taste? von: Dr.
Geschrieben am: 08.09.2004 15:03:59

.


  


Betrifft: AW: Klemmt die Shift-Taste? von: Andy
Geschrieben am: 08.09.2004 15:06:53

Die Shift-Taste klemmt nicht..

Andy


  


Betrifft: AW: Blattschutz ein/ aus mit kennwort von: Dieter.K
Geschrieben am: 08.09.2004 15:09:03

Hallo Andy,

nur eine Vermutung: NUM-Tast ein- oder ausgeschaltet, wenn Passwort ohne Zahlen?


Gruß
Dieter.K


  


Betrifft: AW: Blattschutz ein/ aus mit kennwort von: Andy
Geschrieben am: 08.09.2004 15:12:08

an der num-taste liegt es auch nicht

Andy


  


Betrifft: AW: Blattschutz ein/ aus mit kennwort von: Dr.
Geschrieben am: 08.09.2004 15:13:37

Irgendwas in der Richtung muss es aber sein, da ich den Fall (XL2000) rekonstruiert habe - klappt problemlos!


  


Betrifft: AW: Blattschutz ein/ aus mit kennwort von: Dieter.K
Geschrieben am: 08.09.2004 15:16:01

Hallo Dr.,

bei mir klappt es auch in Excel'97 einwandfrei.

Gruß
Dieter.K


  


Betrifft: AW: Blattschutz ein/ aus mit kennwort von: Andy
Geschrieben am: 08.09.2004 15:16:07

ich habe auch mehrere varianten versucht. mit num, ohne num.
das kennwort ist klein geschrieben und shifttaste nicht aktiv. (Excel97)

Sub schutz_ein()
ActiveSheet.Protect Password = hallo, DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub


Sub schutz_aus()
ActiveSheet.Unprotect Password = hallo
End Sub


Andy


  


Betrifft: AW: Blattschutz ein/ aus mit kennwort von: Dieter.K
Geschrieben am: 08.09.2004 15:18:11

Hallo Andy,

versuch mal meine Codezeilen. Das müsste klappen.

Gruß
Dieter.K


  


Betrifft: AW: Blattschutz ein/ aus mit kennwort von: Dr.
Geschrieben am: 08.09.2004 15:18:15

Der Code lautet sicher genau so und nicht etwa

ActiveSheet.Protect Password:="hallo", DrawingObjects:=True, Contents:=True, Scenarios:=True

??????????


  


Betrifft: das isses!!! von: Andy
Geschrieben am: 08.09.2004 15:22:34

Genau das funktioniert, super..

Danke
Andy


  


Betrifft: AW: Blattschutz ein/ aus mit kennwort von: Dieter.K
Geschrieben am: 08.09.2004 15:15:02

Hallo Andy,

wie sieht Dein Code genau aus, vielleicht so?

ActiveSheet.Unprotect "Dein Passwort" 'Hier wird der Blattschutz aufgehoben
ActiveSheet.Protect "Dein Passwort" 'Hier wird der Blattschutz wieder gesetzt


Gruß
Dieter.K


  


Betrifft: AW: Blattschutz ein/ aus mit kennwort von: Andy
Geschrieben am: 08.09.2004 15:17:33

code siehe oben


  


Betrifft: AW: Blattschutz ein/ aus mit kennwort von: köbi
Geschrieben am: 08.09.2004 15:22:05

Hi Andy
Stell das Passwort in Anfürungs + Endzeichen

"hallo"

gruss
köbi


 

Beiträge aus den Excel-Beispielen zum Thema "Blattschutz ein/ aus mit kennwort"

Kennwort für Blattschutz
Blattschutz aufheben
Blattschutzdialog über VBA aufrufen
Blattschutz für eine Serie von Tabellen setzen und aufheben
Blattschutz beim Speichern setzen
Blattschutz setzen und dennoch mit AutoFiltern
Blattschutz aufheben, Daten eintragen, Blattschutz setzen
Blattschutz für VBA-Einträge ausschließen
Blattschutz mit und ohne Passwort aufheben und setzen
Spaltenweiser Blattschutz in Abhängigkeit des Anwendernamens
Blattschutz für alle Arbeitsblätter setzen oder aufheben