Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
296to300
296to300
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Schaltfläche mit Passwort schützen!

Forumthread: Schaltfläche mit Passwort schützen!

Schaltfläche mit Passwort schützen!
21.08.2003 07:59:10
Thomas
Hallo hatte gestern schon das Problem, das ich Schaltflächen mit Kennwortschutz sperren will, kann mir jemand einen VBA-Code verraten beispielweise für den Kennwortschutz einer Speichern Schaltfläche?
Bsp. wenn ich auf Speichernsymbol klicke, so kommt eine KEnwortabfrage, bevor ich speichern kann.
Vielen Dank für eure Hilfe!
Thommy
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Schaltfläche mit Passwort schützen!
21.08.2003 08:05:53
Ramses
Hallo,
die Abfrage kommt, weil die Datei die du geöffnet hast bereits mit einem Schreibschutz Kennwort versehen ist, und du das Kennwort wissen musst, um die Datei mit den Änderungen erneut zu speichern.
Einen Kennwortschutz für eine Schaltfläche gibt es nicht, du kannst allerdings eine Abfrage in deinen Code einbauen.
Gleich an erster Stelle:
Dim PW As String
PW = InputBox("Passwort angeben","Passwortabfrage","")
If PW <> "Dein_Passwort" Then
Msgbox "Falsches Passwort"
Exit Sub
End If
Gruss Rainer

Anzeige
... war nur ein Beispiel... Speichern
21.08.2003 08:10:47
Thomas
Vielen Dank Rainer, aber es war nur ein Beispiel mit "Speichern", ich will es für beliebige Schaltflächen nutzen, weisst du, deshalb brauche ich nur einen VBA-Code in welchen ich Schaltflächennamen einfügen kann!
Thomas

Wer lesen kann....
21.08.2003 09:36:47
Ramses
Hallo
... ist klar im Vorteil :-)
"...Einen Kennwortschutz für eine Schaltfläche gibt es nicht, ..."
Nimm den Code den ich dir oben gezeigt habe und mach eine 

Function draus, den Code musst du allerdings in jede Schaltfläche einfügen
In ein Modul


Function GetPassWord() As Boolean
Dim PW As String
PW = InputBox("Passwort angeben", "Passwortabfrage", "")
If PW = "Dein_Passwort" Then
GetPassWord = True
Else
GetPassWord = False
End If
End Function



In dein Makro



Sub Dein_Makro()
'Das muss ins Makro
If GetPassWord = True Then
MsgBox "OK"
Else
MsgBox "NOK"
End If
End Sub



Gruss Rainer
Anzeige
noch was...
21.08.2003 11:33:43
Danke Ramses! aber...
Hallo Rainer... finde dass du dich gut mit VBA auskennst, deshalb noch ne Frage, Ein link meiner Exceltabell für ein Word Dok aus, Frage:
Ist es in VBA möglich, das Einblenden/Ausblenden-Symbol (in Standartsymbolleiste, neben Zoomfaktor) im Schreibschutzmodus des Dokumentes zu sperren/zu deaktivieren?
Danke Tommy!

Anzeige
AW: noch was...
21.08.2003 12:09:38
Ramses
Hallo
Radio Eriwan:
"Im Prinzip JA; ... aber ...
1. Dieses Symbol ist nicht Standardmässig installiert und 2. warum ?
Im Schreibschutzmodus kann dir doch sowieso nichts passieren
Gruss Raier

... so einfach ist dies nicht ...
21.08.2003 13:17:00
thomas
doch, mit diesem Symbol kann man verborgene Textabschnitte einblenden, die der Benutzer jedoch nicht sehen soll!

Anzeige
Blattschutz / Arbeitsmappenschutz
21.08.2003 13:21:01
Ramses
Hallo,
damit kannst du deine Tabelle / Mappe schützen so dass der User nichts mehr einblenden kann das er nicht mehr sehen soll.
Denn mit dem deaktiveren der Symbole ist es nicht getan.
Es gibt mindestens 4 verschiedene Möglichkeiten Spalten wieder einzublenden.
Da du "VBA Nein" anzeigst,... würde ich dir ernsthaft empfehlen damit zu arbeiten und das andere nur zu machen wenn es gar nicht mehr anders geht.
Aber das Handling kann nicht im Forum erklärt werden da es relativ komplexe Makros werden. Wenn dort was schief geht, bist du ausgesperrt aus EXCEL.
Gruss Rainer

Anzeige
;

Forumthreads zu verwandten Themen

Outlook Express statt Outlook mit Code ansprechen?
greenhorn

Hallo,
zum automatsichen Versand von E-Mails mit Outlook aus Excel heraus habe ich folgenden Code:
Sub sende_stoermeldung(mld As String) Dim MyMessage As Object, MyOutApp As Object 'InitializeOutlook = True Set MyOutApp = CreateObject("Outlook.Application") 'Nachrichtenobject erstelle...
19.08.2008 13:13:21
Thread-ID: 1002911
7 Beiträge
Blätter Zusammenfassen mit Bezug auf Ursprungzelle
Peter

Hallo liebe Exel und VBA Fangemeinde
nachdem ich nun mehrere Tage durch die Tiefen dieses sensationellen Forum gewühlt habe,
und nicht weiter komme, versuche ich es mit meinem ersten Posting.
In einer Excelliste habe ich eine unbestimmte Anzahl Arbeitsblätter und möchte diese auf e...
22.08.2008 23:37:54
Thread-ID: 1004040
10 Beiträge
Beim Start abfragen mit Passwort
Peter

Hallo
brauche Hilfe und Ideen
Ich möchte gern meine Datei beim Öffnen mit einer Passwortabfrage schützen.
Die Datei startet mit Tabellenblatt"Start"
Dann soll eine Userform mit Textfeld oder Inputbox starten und mit einem Passwort wird die Datei freigegeben, sonst bricht Excel...
06.09.2008 23:10:00
Thread-ID: 1007911
3 Beiträge
Anzeige
Ersetzen mit VBA in allen Arbeitsblättern
Walter

Hallo,
ich habe eine Frage:
Wenn ich einen Text in der ganzen Arbeitsmappe ersetzen will, so treffe ich im Dialogfeld SUCHEN/ERSETZEN einfach die Einstellung: Suchen --- "Arbeitsblatt".
Wenn ich disen Vorgang aufzeichen, kommt folgender Code heraus:
Selection.Replace What:= _
11.09.2008 15:35:53
Thread-ID: 1009157
6 Beiträge
userform mit multipage anpassen
angeldust

Hallo liebe User
Habe eine UserForm mit Multipage jede einzelne Seite Fragt den Benutzer
nach seinen Angaben Zb die seite 1 name, vorname seite 2 adresse auf der seite 3 kann
man ein 10 stll. code eintragen, so nun sollten diese seiten gespeichert werden ,
1. Frage ich hab ein...
28.10.2008 15:08:06
Thread-ID: 1019972
2 Beiträge
Muss nochmal nerven: Textbox mit Tabs einlesen
TomTom

Hi,
bin leider immer noch nicht weiter gekommen, suche immer noch die Möglichkeit, eine Textdatei (mit Tabstopps Trennzeichen) in eine Excel Datei zu lesen. dabei sollte man mit dem öffnen Dialog die Datei vorher auswählen können.
Hier nochmal meine Datei:
https://www.herber.de/bbs/...
06.11.2008 08:27:00
Thread-ID: 1022143
5 Beiträge
Anzeige
Zellen schützen mit Passwort per Makro
Stefan

Hallo zusammen,
habe heute vormittag auf meine Frage wie ich Zellen abhängig vom Datum sperren kann folgendes Makro erhalten..Dafür erstmal vielen Dank ;-)
Jetz würde ich das ganze gern um ein Passwort ergänzen da sonst Dritte den Schutz ja leicht wieder aufheben könnten
' Private...
11.11.2008 13:02:13
Thread-ID: 1023525
4 Beiträge
Zellen schützen mit Passwort per Makro
Stefan

Hallo zusammen,
habe heute vormittag auf meine Frage wie ich Zellen abhängig vom Datum sperren kann folgendes Makro erhalten..Dafür erstmal vielen Dank ;-)
Jetz würde ich das ganze gern um ein Passwort ergänzen da sonst Dritte den Schutz ja leicht wieder aufheben könnten
' Private...
11.11.2008 13:12:00
Thread-ID: 1023528
2 Beiträge
GROSSES PROBLEM MIT GROSSER EXCEL-Tabelle
Stefan

Hallo,
habe aus mehreren Excel-Tabellen eine grosse Tabelle mit über 18000 Zeilen zusammengestellt. Diese möchte ich nun sortieren lassen (nach der Spalte "Name", "Datum"). Problem: Menüpunkt "Daten sortieren" läßt sich nicht mehr anwählen. Warum?
Vielleicht weil einige Zellen falsch bz...
07.01.2009 16:33:00
Thread-ID: 1037611
4 Beiträge
Suchen und >Ersetzen mit VBA macht komische Sachen
SteffenS

Hallo Zusammen,
mit dem Code:
WSZ.Cells.Replace What:="""", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
ersetze ich " in allen Zellen.
Mache ich dies manuell so wird aus:
1348,52102" --> richtig 1348,...
11.01.2009 18:08:38
Thread-ID: 1038681
3 Beiträge
ausfüllen mit festen Adressen ohne absolut setzen!
Ralf

Hallo,
mein Excel 2003 füllt plötzlich Funktionen nach rechts aus und wiederholt dabei die ursprünglichen Zelladressen ohne dass diese absolut gestetzt sind.
Ich habe also z.B. =a1*a2 in einer Zelle, ziehe mit dem Ausfüllkästchen um zwei Spalten nach rechts und als Ergebnis steht überal...
19.01.2009 15:39:24
Thread-ID: 1041522
4 Beiträge
Zelladresse in Code mit - Syntaxfrage
Peter

Guten Tag
Innerhalb eines Codes füge ich eine neue Codezeile ein. Dabei gibt mir "Variante 1" für die Zeile 5 den richtigen Wert.
Nun möchte ich G5 ersetzen, damit in jeder Schlaufe der richtige Wert resultiert.
Anstatt G5 schreibe ich für G
[spName].column ' dies ergibt die Zah...
11.02.2009 08:54:00
Thread-ID: 1049441
7 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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