Ændre knap fra en med ja og nej, til en med "cancel only"
Er ved at lave et regneark, har en knap med programkoden:Private Sub CommandButton1_Click()
Dim sti As String, Navn As String, Måned As String
sti = ActiveWorkbook.Path
Måned = MonthName(Month(Date), False)
Navn = "Timeregistrering " & Cells(2, 4).Value & " " & Måned
If Cells(2, 4).Value = "" Then
If vbNo = MsgBox("Der er ikke angivet et navn!", vbYesNo) Then
MsgBox "Fil ikke gemt"
Exit Sub
End If
End If
ActiveWorkbook.SaveAs Filename:=sti & "\" & Navn
MsgBox "Fil gemt som " & Navn & " i mappen " & sti
Application.Quit
End Sub
Jeg har selv prøvet at ændre knappen fra "vbyesno" til "vbcancelonly", men det hjalp ikke. Man må ikke kunne trykke ok/ja/prøv igen/ignorer. Kun Annuller/cancel
