Makro Passwortsperre

Computer: Software & Programmierung Visual Basic
#1

Hallo ihr Lieben,
ich habe ein Makro/Excel Problem - bzw. finde ich den Fehler nicht. Ich möchte dass das Makro erst ausgeführt wird nachdem man ein Passwort eingegeben hat.
Leider wird bei mir gar nicht erst nach einem Passwort gefragt, das Makro wird einfach ausgeführt.
Wo liegt der Fehler in meinem Code?

Sub Tabellenschutz()
If Application.InputBox(„Bitte geben Sie ein Passwort ein!“, „Passwortabfrage“) = „test“ Then
Sheets(„Januar“).Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets(„Februar“).Select
Range(„F9“).Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets(„März“).Select
Range(„A1:M36“).Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Range(„G26“).Select
Sheets(„April“).Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets(„Mai“).Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets(„Juni“).Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets(„Juli“).Select
Range(„A1“).Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets(„August“).Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets(„September“).Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets(„Oktober“).Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets(„November“).Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets(„Dezember“).Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets(„Vorgabe“).Select
Else
MsgBox „Sie haben nicht die Berechtigung, das Makro auszuführen“, vbCritical, „Fehler“
End If
End Sub

Dankeschön!
Grüße
Nadine

#2

Hey Nadine,

gucks du mal hier
www.office-loesung.de/ftopic32780_0_0_asc.php

Wenn du das Makro an deine Wünsche anpasst, sollte es funktionieren. Ansonsten vielleicht auch malanderen Foren durchsuchen.

Gruß
Otto

#3

Ich möchte dass das Makro erst ausgeführt wird nachdem
man ein Passwort eingegeben hat.

Hallo Nadine

ich habe soetwas noch nicht gemacht, aber auf folgender Seite
http://www.online-excel.de/excel/singsel_vba.php?f=111

habe ich etwas gefunden, was vielleicht zur Lösung deines Problems beitragen kann.

Liebe Grüße

Johannes E.

#4

wenn man einen Command Button benutzt funktioniert es:

Private Sub CommandButton1_Click()

If Application.InputBox(„Bitte geben Sie ein Passwort ein!“, „Passwortabfrage“) = „test“ Then
Sheets(„Januar“).Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets(„Februar“).Select
Range(„F9“).Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets(„März“).Select
Range(„A1:M36“).Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Range(„G26“).Select
Sheets(„April“).Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets(„Mai“).Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets(„Juni“).Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets(„Juli“).Select
Range(„A1“).Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets(„August“).Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets(„September“).Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets(„Oktober“).Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets(„November“).Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets(„Dezember“).Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets(„Vorgabe“).Select
Else
MsgBox „Sie haben nicht die Berechtigung, das Makro auszuführen“, vbCritical, „Fehler“
End If

End Sub

Gruss

#5

Hallo Nadine,

tut mir Leid, aber mit Macros habe ich mich noch nicht genug beschäftigt.

Viele Informationen ünsche ich Dir
Carsten :wink:

#6

Grüezi Nadine

Dein Makro mit der PW-Abfrage funktioniert grundsätzlich korrekt und richtig.

Ich habe den Code 1:1 kopiert und einfach laufen lassen.
Dabei wurde ich nach dem PW gefragt und nur wenn es stimmte wurde der weitere Code abgearbeitet, ansonsten wurde die MsgBox ausgegeben.

Mit freundlichen Grüssen

Thomas Ramel

  • MVP für MS-Excel -
#7

Hallo Nadine
Die sollte aber funktionieren.
Lasse mal das Application vor der Inputbox weg.
Liebe grüsse Sebastian

#8

Sorry, weiss ich nicht.
e-a-s-y

#9

Hallo Nadine,

Bei mir funktioniert der Script. bis auf Sheet März wird nur eine Zelle markiert statt der Bereich A1:M36.

Lade deine Mappe Hoch. Da kann ich mir dein Problem genauer ansehen.

Gruß Fred

#10

Hallo Nadine,
ich kann Dir leider nicht helfen.
Beste Grüße
BFR

#11

Hallo, bei Programmierung kann ichleider nicht helfen.
Beste Grüße
H. Schuster

#12

Hallo Nadine,

da gibt es wohl irgendwo Verständnisprobleme.

Wie wird denn das Makro in deiner Datei gestartet?
Per Schaltfläche, via Dialog Makro straten, oder von einem anderen Makro aus?

Es gibt in Excel kein Passwort, das den Start eines Makros blockiert. Du kanst per Eingabe eines Kennworts „nur“ den Ablauf des Makros steuern, so wie du es gemacht hast. Dann wird abhängig vom eingegebenen Kennwort der gewünschte Abschnitt des Makros ausgeführt.

Gruß
Franz

#13

Hallo,
ich kann Dein Problem nicht nachvollziehen - bei mir funzt das Makro einwandfrei.
Welche Excel-Version benutzt Du denn?
Gruß,
Ptonka

#14

Danke :smile: Klappt.

Hallo Nadine
Die sollte aber funktionieren.
Lasse mal das Application vor der Inputbox weg.
Liebe grüsse Sebastian

#15

Vielen lieben Dank, klappt inzwischen.
Grüße Nadine

#16

Danke, klappt bei mir inzwischen auch. Code war richtig, nur nicht der „Ort“ wo er stand :smiley:
Grüße