Echt wissen van gegevens??

[HMDH]

Beste Forum,

kan iemand mij helpen om een VBA code / Marco te maken?

Ik heb een document met een Button met daarachter een Macro om een selectie cellen- en kolommen-inhoud te wissen.
Om te voorkomen dat er per ongeluk op de button "Wissen van gegevens" wordt geklikt zou ik een veiligheid in willen bouwen.
Er moet dan gevraagd worden b.v. "Gegevens echt wissen?".
Dan door iets te doen (?) mogen de gegevens echt gewist worden.

Zie bijlage als soort van voorbeeld.

Groet, HarryM.

 

[JEC.]

Met een msgbox

If MsgBox("Echt verwijderen", vbYesNo, "let op") = vbYes Then
    je code....
End If

 

[mvdvlist]

Je zou er zelfs nog een wachtwoord aan toe kunnen voegen. Als je VBA dan beveiligd, kunnen ze dat niet (makkelijk) terugvinden...l



Voorbeeld: De code van JVeer met aanpassing:

If InputBox("Wachtwoord a.u.b.") = "wachtwoord" Then
 If MsgBox("Echt verwijderen?", vbYesNo, "let op!!") = vbYes Then
    je code....
 End If
End If

 

[HMDH]

Bedankt,

werkt bijna.
je code.....

Wat moet er hier dan staan?
En.... als ik annuleer wordt er toch gewist (?)

Mijn Macro ziet er als volgt uit:

Sub Echtwissen()
'
' Standen worden gewist Macro

Sheets("Wedstrijdbonnen").Select
ActiveSheet.Unprotect
If InputBox("Wachtwoord a.u.b.") = "HH" Then
If MsgBox("Echt verwijderen?", vbYesNo, "let op!!") = vbYes Then
'je code....
End If

End If

ActiveWindow.DisplayHorizontalScrollBar = True

Range("I20:J22,O2022,U20:V22,AA20:AB22,AG20:AH22,AM20:AN22,AS20:AT22,AY20:AZ22,BE20:BF22,BK20:BL22,BQ20:BR22,BW20:BX22").Select
Selection.ClearContents
Range("D15").Select

ActiveSheet.Protect


End Sub

 

[mvdvlist]

Deze code plaats je op de plaats van "je code"

Overigens kan dat wel korter, maar dat terzijde..

' Standen worden gewist Macro

Sheets("Wedstrijdbonnen").Select
ActiveSheet.Unprotect
ActiveWindow.DisplayHorizontalScrollBar = True

Range("I20:J22,O2022,U20:V22,AA20:AB22,AG20:AH22,AM20:AN22,AS20:AT22,AY20:AZ22,BE20:BF22,BK20:BL22,BQ20:BR22,BW20:BX22 ").Select
Selection.ClearContents
Range("D15").Select

ActiveSheet.Protect

 

[roeljongman]

"je code" moet je vervangen door jouw code.. (die open deur toch maar even intrappen..)

Sub Echtwissen()
'
' Standen worden gewist Macro

Sheets("Wedstrijdbonnen").Select
ActiveSheet.Unprotect

If InputBox("Wachtwoord a.u.b.") = "HH" Then
   If MsgBox("Echt verwijderen?", vbYesNo, "let op!!") = vbYes Then

      ActiveWindow.DisplayHorizontalScrollBar = True

      Range("I20:J22,O2022,U20:V22,AA20:AB22,AG20:AH22,AM20:AN22,AS20:AT22,AY20:AZ22,BE20:BF22,BK20:BL22,BQ20:BR22,BW20:BX22 ").Select
      Selection.ClearContents
      Range("D15").Select

   End If

End If
ActiveSheet.Protect
End Sub

edit: de code die je alleen na vbYes uitgevoerd wil hebben moet je altijd tussen de If en end if plaatsen, als je het doet zoals jij dan gaat ie na de 2e end if gewoon jou code altijd uitvoeren.

 

[snb]

Ik heb een document met een Button met daarachter een Macro om een selectie cellen- en kolommen-inhoud te wissen.

Klinkt niet slim.
Geen codetags gebruiken in het forum is helemaal niet slim en onbeleefd.

Gegevens markeren als 'niet-aktief', 'niet-actueel', 'oud' of iets dergeljks is veel verstandiger en zonder risico.
Laat Excel het filterwerk voor zijn/haar rekening nemen.

 

[mvdvlist]

Dat zowieso, maar nu heeft TS een idee hoe hij die codes koppelt in EEN module. Alles kan uiteraard veel korter en sneller...

 

[HMDH]

Als ik klikt op "Echt verwijderen" komt er een foutmelding. (?)



Ik weet dat ik niet zo slim ben als b.v. snb
Als ik zo slim was had ik helemaal geen forum nodig.

Ik ben echt blij dat er mensen zijn die leken behulpzaam willen zijn en niet hun eigen niveau als referentie gebruiken.
(maar dit terzijde)

 

[HMDH]

Is opgelost.
Op een of andere manier was er een foute in de reeks te verwijderen cellen geslopen.
Dit gerepareerd.