Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 09:36:02
Wenn Wert x in Zelle a, dann Wert y in Zelle b
24.04.2024 09:24:20
Textketten erstellen mit unterschiedlichen Anzahl an Feldern
24.04.2024 09:04:14
Erfahrung Umstieg in Sharpoint
24.04.2024 08:01:34
Textbox Inhalt prüfen und Code abbrechen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
732to736
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
732to736
732to736
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabellenblatt nur mit Passwort oder Nummer freigeb

Tabellenblatt nur mit Passwort oder Nummer freigeb
Toxma
Hallo,
kann jemand helfen? Ich suche über VBA eine Möglichkeit den Zugriff auf einzelne Tabellenblätter (eine Arbeitsmappe mit ca. 10 Tabellenblätter und hier nur auf 3 Tabellenblättern in denen sich Daten befinden) zu erlauben. In einem von diesen 3 Tabellenblättern befindet sich eine Kundennummer. Sollter der Nutzte nun sein Passwort vergessen haben, so soll mittels dieser Kundennummer der Zugriff auf diese 3 Tabellenblätter noch möglich sein.
Eine Möglichkeit wäre sicher ein Eingabefeld für das Passwort und ein Eigabefeld für die Kundennummer... aber weiß leider nicht wie weiter.
Hoffe es ist nicht zu kompliziert.
Danke schon an dieser Stelle
Toxma

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Tabellenblatt nur mit Passwort oder Nummer fre
14.02.2006 23:59:55
Bernd
Hi Toxma,
hier mal ein Ansatz.
Bei offenen Fragen müssen dir leider
andere Excelaner weiter helfen.

Sub Mappezu()
Dim Kundennr As Integer
For i = 1 To Sheets.Count  'alle Tabellenblätter sperren
Sheets(i).Protect
Next i
Kundennr = InputBox("Kundennr") ' Kundennr, eingeben
With Worksheets(1).Range("a1:a500")
Set c = .Find(Kundennr, LookIn:=xlValues) ' Kundennr suchen
If Not c Is Nothing Then
firstAddress = c.Address
Do
If c = Kundennr Then           ' Kundennr gefunden dann zelle B x anzeigen
MsgBox "Kundennr gefunden. Ihr Zugangscode =  " & c.Offset(0, 1)
For i = 1 To 3
Sheets(i).Unprotect  'Tabellenblatt 1 bis 3 freigeben
Next i
End If
Exit Sub
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
MsgBox "keine Übereinstimmung!!" 'Kundennr falsch, Macro beenden. Blätter sind gesperrt.
End Sub

Gruß
Bernd Wies
Anzeige
AW: Tabellenblatt nur mit Passwort oder Nummer fre
15.02.2006 16:21:29
Toxma
Hallo Bernd,
vielen dank für Deine Hilfe.
Ich versuch mal, ob ich klar komme und melde mich dann noch einmal.
Guß
Toxma
AW: Tabellenblatt nur mit Passwort oder Nummer fre
20.02.2006 09:22:18
Toxma
Hy,
wenn es noch interessieren sollte, so habe ich das Problem jetzt für mich gelöst.
Gibt sicher noch andere Möglichkeiten aber denke so geht es auch.
Sollte das Problem jemand anders gelöst haben würde mich das natürlich auch sehr interessieren.
In diese "Arbeitsmappe"

Private Sub Workbook_Open()
Dim PW, PWEingabe, Fehler
PWort = "abc"
Fehler = 1
'Die Passwort Eingabe wird geprüft
nochmal:
PWEingabe = InputBox("Bitte geben sie Ihr Paßwort ein" & Chr(13) & _
"Das richtige Paßwort lautet: ""abc""", "Paßwortabfrage")
If Date > CDate("19.02.2006") Then
'Prüfen wie oft bereits Fehler
'If Fehler < 3 Then
MsgBox "Sie haben kein oder ein ungültiges Paßwort eingegeben bitte Kundennummer eingeben!"
Mappezu 'Zurück zur Paßworteingabe
Else
MsgBox "Ihre Paßwort-Eingabe war OK"
End If
End Sub

In Modul
Sub Mappezu()
Dim Kundennr As Integer
For i = 1 To Sheets.Count 'alle Tabellenblätter sperren
Sheets(i).Protect
Next i
Kundennr = InputBox("Kundennr") ' Kundennr, eingeben
With Worksheets(1).Range("a1:a500")
Set c = .Find(Kundennr, LookIn:=xlValues) ' Kundennr suchen
If Not c Is Nothing Then
firstAddress = c.Address
Do
If c = Kundennr Then ' Kundennr gefunden dann zelle B x anzeigen
MsgBox "Kundennr gefunden. Ihr Zugangscode = " & c.Offset(0, 1)
For i = 1 To 3
Sheets(i).Unprotect 'Tabellenblatt 1 bis 3 freigeben
Next i
End If
Exit Sub
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address firstAddress
End If
End With
MsgBox "keine Übereinstimmung!!" 'Kundennr falsch, Macro beenden. Blätter sind gesperrt.
End Sub
Gruss Toxma
Anzeige

309 Forumthreads zu ähnlichen Themen

Inputbox Schriftart oder Farbe verändern
Gunter

Hallo Zusammen,
ich habe eine Inputbox, über die eine Passwortabfrage gesteuert wird. Leider ist das Passwort im Eingabefeld zu sehen. Ist es möglich den Text z.B. in der Schriftart "Wingdings" zu formatieren, oder
die Schriftfarbe in weiss, damit das Passwort nicht mehr zu sehen ist?
28.08.2008 15:32:00
Thread-ID: 1005474
7 Beiträge
Anzeige
SVerweis mit zwei Suchkriterien
Josef

Hallo1
Ich habe in Tabelle1
in der Spalte A und B Werte stehen.
In der Tabelle2 stehen ebenfalls in der Spalte A und B die gleichen Werte, jedoch in anderer Reihenfolge in der Spalte C stehen die dazugehörenden Texte.
Ich möchte nun die Werte in der Spalte C in der Tabelle 2 in...
01.09.2008 18:57:22
Thread-ID: 1006581
6 Beiträge
Zugriff auf Access-DB über DAO oder ADO
Armin

Hallo,
ich hätte eine allgemeine Frage zum Zugriff auf Access-Datenbanken.
Welche Zugriffsmethode auf eine Access-DB würdet Ihr generell empfehlen: ADO oder DAO?
Gibt es in der Praxis Vor- oder Nachteile für die eine oder andere Zugriffsweise?
Vielen Dank für Euere Meinungen und...
03.09.2008 14:28:55
Thread-ID: 1007110
2 Beiträge
Anzeige
PIVOTDATENZUORDNEN mit zwei Kriterien
Andi

Hallo Experten,
Ich versuch zurzeit eine Auswertung aus einer Pivot Tabelle zu erstellen, komm jedoch nicht weiter da ich zwei Kriterien in der X-achse und eins in der Y-achse berücksichtigen muss. Das heisst ich kann nicht einfach X-Achse und Y-achse mit der Pivot-tabelle abgleichen, sonde...
14.10.2008 12:16:00
Thread-ID: 1016295
5 Beiträge
LZF 1004 Anwendungs- oder objektdefinierter Fehler
Himmelsbach

Hallo zusammen,
Ich habe ein kleines Problem beim Einfügen eines Kommentars in ein Zelle.
Der Code lautet:
Sub vergleichen () dim icolmax as integer dim irowmax as integer dim icol as integer dim irow as integer dim kommentar$ icolmax = 16 irowmax = thisworkbook.worksheets("IASEK...
20.10.2008 20:20:00
Thread-ID: 1017794
6 Beiträge
Bedingte Formatierung oder VBA?
maruseru

Hallo werte Profis
Irgendwie raff ich es heute nicht
Habe eine Spalte mit Artikel Nummern. Jeweils das erste Zeichen ist = Produkte Typ.
A976164
A980602
B181645
B491942
F199587
F215047
F224410
G224410
F232634
Ich möchte nun anhand des ersten Zeich...
27.11.2008 14:09:45
Thread-ID: 1028367
7 Beiträge
Schaltflächen oder Image Beispiele
Walter

Hallo Zusammen,
erst mal ALLEN ein gesundes neues Jahr !!!
Ich such Schaltflächen oder Image Beispiele, hatte mal in Google gesucht, leider
nichts gefunden,
vielleicht hat jemand eine Beispielmappe,
mfg Walter
01.01.2009 13:10:00
Thread-ID: 1036231
9 Beiträge
Excel-Bug oder was?
Andreas

Hallo,
Haben seit gestern folgendes Problem, welches auch schon zu
"Schäden" geführt hat. Sonst hätte ich es ja auch nicht bemerkt.
Excel-Problem nach Update von MS Office Kompatibilitätspack 2007
Wenn eine Exceldatei *.xls (2003) über Extras - Schutz - Arbeitsmappe schützen
...
16.01.2009 12:09:00
Thread-ID: 1040524
3 Beiträge
Anzeige

Links zu Excel-Dialogen

InputBox

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
6
5
5
1
5
4
5
6
8
2
11
2
2
3
8
4
7
3
15
3
16
5
4
2
1