Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 22:18:24
Liste mit Links - tricky
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
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
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
948to952
948to952
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Sicherheitsabfrage

Forumthread: Sicherheitsabfrage

Sicherheitsabfrage
06.02.2008 20:44:00
mike49
Hallo,
habe ein kleines Makro aufgezeichnet, das auch funktioniert. Wie kann ich eine Sicherheitsabfrage einbauen, dass nachgefragt wird, ob die Aktion ausgeführt werden soll oder nicht?

Sub KaltwasserEG_OG()
ActiveSheet.Unprotect
Range("U11:V11").Select
Selection.Copy
Range("U12:V12").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("U11:V11").Select
ActiveCell.FormulaR1C1 = "0"
Range("V11").Select
ActiveCell.FormulaR1C1 = "0"
Range("U11").Select
ActiveSheet.Protect
End Sub


Gruß
mike49

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Sicherheitsabfrage
06.02.2008 20:48:45
Ulf
Hallo mike
ich denke so.

Sub KaltwasserEG_OG()
Dim var
var = MsgBox("möchtest du starten?", vbYesNo, "Nachfrage")
If var = 6 Then
ActiveSheet.Unprotect
Range("U11:V11").Select
Selection.Copy
Range("U12:V12").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("U11:V11").Select
ActiveCell.FormulaR1C1 = "0"
Range("V11").Select
ActiveCell.FormulaR1C1 = "0"
Range("U11").Select
ActiveSheet.Protect
End If
End Sub


mfg Ulf

Anzeige
AW: Sicherheitsabfrage
06.02.2008 20:49:35
Mister
Hallo,
z.B. so....

Sub Kaltwasser
Dim Antwort As Integer
Antwort = MsgBox("Möchten Sie den Dienstplanorganizer 2008 beenden?", vbYesNo + vbQuestion, " _
Dienstplanorganizer 2008")
If Antwort = vbYes Then
ActiveSheet.Unprotect
Range("U11:V11").Select
Selection.Copy
Range("U12:V12").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("U11:V11").Select
ActiveCell.FormulaR1C1 = "0"
Range("V11").Select
ActiveCell.FormulaR1C1 = "0"
Range("U11").Select
ActiveSheet.Protect
End If
End Sub


Gruß
Martin

Anzeige
AW: Sicherheitsabfrage
06.02.2008 20:50:14
Mister
Hallo,
z.B. so....

Sub Kaltwasser
Dim Antwort As Integer
Antwort = MsgBox("Möchten Sie fortfahren?", vbYesNo + vbQuestion, "Kaltwasser")
If Antwort = vbYes Then
ActiveSheet.Unprotect
Range("U11:V11").Select
Selection.Copy
Range("U12:V12").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("U11:V11").Select
ActiveCell.FormulaR1C1 = "0"
Range("V11").Select
ActiveCell.FormulaR1C1 = "0"
Range("U11").Select
ActiveSheet.Protect
End If
End Sub


Gruß
Martin

Anzeige
Danke Euch beiden . . .
06.02.2008 21:19:00
mike49
beide Versionen funktionieren.
Gruß
Mike49
;

Forumthreads zu verwandten Themen

Sicherheitsabfrage bei Blatt löschen
Jens

Hi zusammen,
auf mehreren PC, alle Windows XP Pro SP 2, läuft Excel 2003 professionell.
Bei einem diese PC erfolgt beim Löschen eines Blatts keine Sicherheitsabfrage.
Abfrage nach DisplayAlerts ergibt True.
Kennt jemand diesen Effekt und weiß ggf. Abhilfe? Mir ist keine Einstell...
09.01.2009 22:37:52
Thread-ID: 1038361
4 Beiträge
Sicherheitsabfrage deaktivieren
Peter

Hallo Excelfreunde
kann mir jemand sagen, wie ich eine unter Excel 2007 als *.xlm gespeicherte Datei (also mit Makros)
zum laufen bringe.
Es erscheint die Sicherheitsmeldung, dass die Makros deaktiviert wurden.
Siehe auch den angehängten Screen shot.
Ich habe aber keine Opti...
15.06.2009 19:28:02
Thread-ID: 1081681
8 Beiträge
Outlook - Sicherheitsabfrage
Frank

Hallo zusammen,
die Sicherheitsabfrage in Outlook, dass ein fremdes Programm auf Outlook zugreift, kann ja leider nicht vermieden werden.
Nun erstelle ich aus Excel eine Serienmail. Ich habe in Outlook schon gesehen, dass man jede Mail einzeln bestätigen muss, als auch, dass man Outlook...
14.10.2010 19:57:17
Thread-ID: 1182522
11 Beiträge
Sicherheitsabfrage beim Löschen eines Blattes
Catrin

Hallo zusammen,ich habe ein Makro zum Import einer Datei geschrieben, das so anfängt:
Sub Leasing()
BlattListe("LEASING").Auswählen
AktivesFenster.AusgewähltesBlattListe.LöschenBei Auführung des Makros erschein die Sicherheitsabfrag...
04.07.2002 09:24:32
Thread-ID: 133691
2 Beiträge
Sicherheitsabfrage bei der Eingabe in eine TextBox
Christian

Hallo,
wie verhindere ich das in ein Textfeld Buchstaben und Sonderzeichen eingegeben werden. Eine Variable mit der Deklaration "LONG" empfängt die Eingabe. Gibt man ausversehen einen Buchstaben ein, so stürtzt die UserForm ab.Wer kennt eine Lösung!MFG Chris
08.07.2002 17:58:58
Thread-ID: 134783
4 Beiträge
Anzeige
Vor Makro Blattschutz aufheben: Sicherheitsabfrage
Michael Kl.

Hallo zusammen,
ich habe ein Makro zur Aufhebung des Blattschutzes erstellt.
Vor der endgültigen Deaktivierung des Schutzes soll eine Abfrage erscheinen, ob der Schutz wirklich deaktiiert werden soll. Ihr kennt diese Abfragen mit Sicherheit von Windows. Dort hat man die Möglichkeit, bei i...
17.07.2002 12:39:18
Thread-ID: 137441
3 Beiträge
Sicherheitsabfrage bei unterschiedlichem Wert
Stefan

Hey Leute,
wenn eine Zelle in Spalte "G" frei gelassen wird, dann soll das Makro prüfen, ob es sich in Spalte "D" (gleiche Zeile) um ein anderes Datum handelt als in der Zeile zuvor (die leer gelassen wurde). Vielleicht habt ihr einen Tip. Mit Offset funktioniert es anscheinend nicht.
...
26.06.2015 15:09:49
Thread-ID: 1433368
4 Beiträge
Löschen von Tabellenbl. ohne Sicherheitsabfrage
Stephan

Hallo zusammen,
mit dem Befehl:
ActiveSheet.Delete
kann man Tabellenblätter löschen. Allerdings kommt dann immer noch eine Sicherheitsabfrage, ob wirklich gelöscht werden soll, die der Benutzer erst bestätigen muss. Gibt es auch einen Befehl, der das Tabellenblatt einfach löscht, o...
19.08.2002 11:34:23
Thread-ID: 150129
2 Beiträge
Erweiterte Sicherheitsabfrage
Fritz

Hallo Forumsbesucher,
Ich bitte um die Hilfe der VBA-Kundigen in folgender Angelegenheit.
Ich möchte vor dem Löschen bestimmter Daten in meiner Mappe mithilfe des Makros DatenLoeschen die Sicherheitsabfrage "Wollen Sie die Daten sichern?".
Bei Ja soll das Makro DatenSichern ausgefüh...
09.01.2017 16:52:33
Thread-ID: 1534025
3 Beiträge
Anzeige
Sicherheitsabfragen Outlook XP
Axel B.

Hallo.Ich versende eMails aus Excel mit Verweis auf die Outlook Object Library. Leider erscheinen unter Outlook XP diverse Sicherheitsabfragen.
Läßt sich das per Code umgehen?Danke für die Hilfe.
mfG Axel
10.09.2002 15:46:15
Thread-ID: 158337
4 Beiträge
Sicherheitsabfrage Makro
Caro

Hallo,
gibt es ein Makro "Sicherheitsabfrage" welches bei versehentlichem entfernen vom Inhalt nochmals abfragt ob Inhalt wirklich gelöscht werden soll.
Die Zellen sollen aber ohne einschränkung beschrieben werden können.
Und ja ich weiß es gibt die "Rückgänig-Funktion". :-)))
...
21.08.2019 13:46:24
Thread-ID: 1708818
4 Beiträge
Anzeige
makro sicherheitsabfrage
jenny

Hallo, kann mir jemand sagen wie man die Makro-Sicherheitsabfrage umgeht? Alle programmierten Makros (UserForms etc.) sollen ausgeführt werden.Die "nicht Abfrage" der sicherheit soll nur bei einer Arbeitsmappe eintreten.Vielen Dank im Voraus
12.11.2002 18:15:13
Thread-ID: 180365
2 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

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