Office: (Office 2016) MsgBox Ja / Nein > Nein als Standard

Hallo nochmal
Mit folgendem Code wird "verhindert" dass die gesperrten Zellen geändert werden. Nur nach Klick auf Ja oder Nein ist das möglich. Leider ist bei der MsgBox der JaButton als erstes aktiviert
Kann man man das ev umdrehen? Dass der NeinButton der Standard ist?

Wäre super wenn es eine Lösung gibt.

PHP:

         Private Sub Worksheet_Change(ByVal Target As Range) 'Warnung, wenn gesperrte Zellen geändert werden soll

Dim cell As Range
Dim msg As String
Dim rng As Range
Dim i As Integer

If Intersect(Target, UsedRange).Cells.count > Rows.count Then Exit Sub

For Each cell In Target
If cell.Locked Then
'msg = msg & vbTab & cell.Address(0, 0)
If rng Is Nothing Then
Set rng = cell
Else
Set rng = Union(rng, cell)
End If
End If
Next cell

If Not rng Is Nothing Then

With rng
.Select
For i = 1 To .Areas.count
msg = msg & vbLf & .Areas(i).Address(0, 0)
Next i
End With

[b]If MsgBox("Spalte:" & msg, 36, "Willst Du wirklich die Zelle ändern? ") = vbNo Then
With Application
.EnableEvents = False
.Undo
.EnableEvents = True
End With
ElseIf Target.count > 1 Then Target.Select
End If[/b]

End If
End Sub


:)

 

Code:

Bitte berücksichtige das Themen die Erledigt sind als Erledigt markiert werden können. Also mache es unten links mit Klick auf den Schalter "als erledigt setzen", falls Problem gelöst.
Der Zustand des Beitrages wird dann in der Übersicht angezeigt und man braucht sich diese Beiträge nicht mehr ansehen.





Meine Homepage Homeseite - Hajo's Excelseiten

 

Hallo,

Nein-Button als Default:

Sub Meldung()
Dim Text As String, Titel As String, Stil As Long
Text = "Nein-Button wird vorbelegt!"
Titel = "Test für Meldung"
Stil = vbYesNo
MsgBox Text, Stil + vbDefaultButton2, Titel
End Sub

Sigi

 

Danke euch beiden
Ich weiss zwar noch nicht wie ich das unterbringe, aber das schaffe ich auch

Danke nochmal
LG
Michael

 

Hallo,

na hier:


If MsgBox("Spalte:" & msg, 36 + vbDefaultButton2, "Willst Du wirklich die Zelle ändern? ") = vbNo Then

Sigi

 

Der Rechtschreibnazi muss auch noch reingrätschen: Es heißt Standard. Nicht Standart und auch nicht Stand-Art. Genauso wie es "Haken" und "Paket" heißt und nicht "Hacken" und "Packet".

Für die Lösung selber bin ich ja leider zu spät gekommen, daher konnte ich nur was zur Allgemeinbildung beitragen.

 

shit
Und dass das gerade mir pasierd *Smilie


LG
Michael

 

*grins *grins *grins

 

Wie meinst das, Michael?