• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Aanpassing bestaande macro

Status
Niet open voor verdere reacties.
s0me0neelse,

mijn bijdrage is alleen bedoeld om je op het juiste spoor te zetten. De crux zit hem in het gebruiken van
Code: 
 If Range().HasFormula
om er achter te komen of een cel een formule bevat
Ik neem aan dat je kunt nu zelf dit in je eigen bestand kunt implementeren. Zo niet dan horen/lezen we dat hier vast wel.
 
Laatst bewerkt:
Hmmm,

ik ben bang dat je mij naar het station zult moeten brengen om me op
het juiste spoor te krijgen :-(
Ik kan timmeren, auto's repareren, metselen en nog veel meer, helaas
is VBA voor mij algabra.... En daar begrijp ik helemaal niets van !

Met veel plezier ben ik gaan "rommelen" met excel en ben blij dat m'n
poging een volledig financieel 10 jarenplan te maken is gelukt. Voor alle
andere zaken, makro's - VBA en speciale formules ben ik op de hulp van
het forum aangewezen.

Ik heb inmiddels enkele Makro's of is het VBA, hier dankzij jullie hulp in
m'n workbook toegepast. Volgens mij kan de helft daarvan wel weg, ben
echter bang dat als ik dat doe, dat sommige funkties niet meer werken en
laat alles dus maar waar het is.....

Zover dus mijn kennis van excel ;-)
 
Ik vraag maar, voordat ik alle (zijn er bijna 6) dan overbodig geworden makro's ga verwijderen
Klik om te vergroten...

In je bestand makrotest staat maar 3 macro's:

1 in DieseArbeitsmappe (=ThisWorkbook) die alle tabbladen beveiligd bij het openen van het bestand
2 in Modul7, 1 die hetzelfde doet als de hiervoor genoemde en 1 die die beveiliging er af haalt.

Als je een bijlage kunt posten waar de (bijna) 6 ook in staan wil ik wel eens kijken wat ik kan doen.
 
s0me0ndeelse,

in je eerste bijlage (test.xlsm) staat dit:
Code: 
Sub Formelnschuetzen()
'
' Formelnschuetzen Makro
'
' Tastenkombination: Strg+Umschalt+S
'
[COLOR="#FF0000"]    Selection.SpecialCells(xlCellTypeFormulas, 23).Select
    With Selection.Validation
[/COLOR]        .Delete
        .Add Type:=xlValidateCustom, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="="""""
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With
maak daar eens van
Code: 
[COLOR="#008000"]    With ActiveSheet.UsedRange.SpecialCells(xlCellTypeFormulas, 23).Validation[/COLOR]
        .Delete
        .Add Type:=xlValidateCustom, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="="""""
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With
dan komt er ook in het with-statement te staan welke voor welke selectie e.e.a. moet gebeuren.
 
Ik geloof (ben er eigenlijk van overtuigd) dat de makro's in m'n werkmap voor
de helft dubbel en voor de andere helft overbodig zijn. Zie bijlage "txt bestandje"
waar ik de inhoud van de makro's heb gekopieerd.

Je idee om "Sub Formelnschuetzen()"
met jouw code te vervangen ga ik morgen mee aan de gang, ik hoop dat ik het
werkend krijg :-)
 

Bijlagen

De Makro ctrl-shft-S heb ik er in staan, geen idee waarom. Ik gebruik eigenlijk ALLEEN de
ctrl-shft-P en ctrl-shft-U, alle andere Makro's..... geen idee of ze automatisch worden uitgevoerd of dat ze
gewoon helemaal niets doen.

Ik heb de code veranderd en uitgeprobeerd met de makro "formelschützen" zoals voorgesteld, er gebeurd niets wanneer ik ctrl-shft-S gebruik. Nu heb ik ook de code uitgetest in de Makro "Protectsheets" welke ik met ctrl-shft-P
oproep (zie code). De makro wordt dan utgevoerd en stopt met een foutmelding bij : .IgnoreBlank = True


Code: 
Sub Protectsheets()
'
' Protectsheets Makro
' Alle sheets beveiligen met objekt bearbeitung mogelijk
'
' Tastenkombination: Strg+Umschalt+P
'
Selection.SpecialCells(xlCellTypeFormulas, 23).Select
    With ActiveSheet.UsedRange.SpecialCells(xlCellTypeFormulas, 23).Validation
        .Delete
        .Add Type:=xlValidateCustom, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="="""""
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With
    Sheets("18").Select
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        True
    Sheets("19").Select
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        True
    Sheets("20").Select
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        True
    Sheets("21").Select
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        True
    Sheets("22").Select
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        True
    Sheets("23").Select
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        True
    Sheets("24").Select
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        True
    Sheets("25").Select
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        True
    Sheets("26").Select
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        True
    Sheets("27").Select
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        True
    Sheets("28").Select
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        True
    Sheets("29").Select
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        True
    Sheets("30").Select
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        True
    Sheets("Ei").Select
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        True
    Sheets("Ink").Select
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        True
    Sheets("Be").Select
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        True
    Sheets("Le").Select
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        True
    Sheets("Fe").Select
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        True
    Sheets("Vak").Select
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        True
    Sheets("Tu").Select
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        True
    Sheets("div").Select
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        True
    Sheets("Go").Select
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        True
    Sheets("glw").Select
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        True
    Sheets("Winkel").Select
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        True
    Sheets("aow").Select
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        True
    Sheets("adressen").Select
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        True
    Sheets("auto").Select
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        True
    Sheets("Verbruik").Select
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        True
    Sheets("tilgung").Select
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        True
    Sheets("bsn").Select
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        True
    Sheets("Help").Select
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        True
    Sheets("Polis").Select
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        True
End Sub
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan