Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 07:35:33
Matrix auslesen und in Liste umwandeln
17.04.2024 21:55:37
Preiserhöhung über mehrere Jahre berechnen
17.04.2024 20:19:32
Endzeitpunkt berechnen aus d:hh:mm errechnen
17.04.2024 18:57:33
Errinnerungsfunktion
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
724to728
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
724to728
724to728
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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 :-(
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

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige