Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Passwort abfragen, aber wie in VBA

Passwort abfragen, aber wie in VBA
01.02.2006 18:31:28
Konni
Hallo Freaks,
ich habe noch eine Frage.
Nachstehender Code soll so geändert werden, damit beim Versuch, den Schreibschutz zu entfernen, eine Passwortabfrage erscheint (Box).
Habe gesucht und probiert, aber wahrscheinlich was falsch gemacht. Daher stelle ich meine Frage im Forum.

Sub Seite_löschen_Beispiel_Stellungnahme_BÜ()
Sheets("Beispiel Stellungnahme BÜ").Select
Sheets("Beispiel Stellungnahme BÜ").Move Before:=Sheets(1)
Sheets("Stellungnahme BÜ").Select
Sheets("Stellungnahme BÜ").Move After:=Sheets(5)
Sheets("Nachtragsübersicht").Select
ActiveSheet.Unprotect
ActiveSheet.Protect
Range("M14").Select
End With
End Sub

Tausend Dank für die Unterstützung
Konni
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Passwort .... , habe was vergessen
01.02.2006 18:56:05
Konni
Hallo Freaks,
bei ActiveSheet.Unprotect muss das Passwort auch eingebaut werden, damit der Code automatisch ausgeführt wird und keine Passwortabfrage erscheint.
Zur Erklärung:
In diese Tabelle werden per Button Daten kopiert, d.h., per Code muss das Passwort zuerst aufgehoben und nach dem Kopieren wieder gesetzt werden.
Gruß
Konni
Anzeige
AW: Passwort, ich will es nicht knacken!! oT
01.02.2006 19:25:06
Konni
...
AW: Passwort, ich will es nicht knacken!! oT
01.02.2006 19:30:24
HansHei
Hallo Konni,
probier mal so:

Sub Seite_löschen_Beispiel_Stellungnahme_BÜ()
Sheets("Beispiel Stellungnahme BÜ").Select
Sheets("Beispiel Stellungnahme BÜ").Move Before:=Sheets(1)
Sheets("Stellungnahme BÜ").Select
Sheets("Stellungnahme BÜ").Move After:=Sheets(5)
Sheets("Nachtragsübersicht").Select
ActiveSheet.Unprotect Passwort:="test"
ActiveSheet.Protect Passwort:="test"
Range("M14").Select
End With
End Sub

Gruß
Hans
Anzeige
AW: Passwort, ich will es nicht knacken!! oT
01.02.2006 19:35:44
Konni
Hallo Hans,
vielen Dank für Deine Reaktion.
Genau so habe ich es gemacht mit "Passwort", anstatt "Test".
Wenn ich dann auf eine Zelle klicke, kommt die Meldung geschützt. Anschließend kann ich den Schutz aber ohne Passwortabfrage aufheben. - Es ist zum Verzweifeln!
Viele Grüße
Konni :-(
Anzeige
AW: Passwort, ich will es nicht knacken!! oT
01.02.2006 19:35:47
Olaf
Statt Passwort besser Password
mfg Olaf
AW: Passwort, .... mein Gott Olaf, Hans..........
01.02.2006 19:47:30
Konni
....., ich glaube, ich gebe mir die Kugel!
Kleine Ursache, große Wirkung! - Liegt vielleicht daran, dass ich seit 4:00 Uhr auf den Beinen bin.
Tausend Dank, auch an Hans
Viele Grüße
Konni
AW: gut aufgepasst, danke oT
01.02.2006 19:49:03
HansHei
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige