| Home |
| Search |
| Today's Posts |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Code does not select
torsdag den 8. november 2018 kl. 15.42.03 UTC+1 skrev Claus Busch:
Hi Jan, Am Thu, 8 Nov 2018 06:10:46 -0800 (PST) schrieb : [Code snipped] For some reason it doesn't select anything, though it did on thr very first run. you must not select when you refer directly. Try: Dim Bruger As String Dim LCol As Integer Dim LRow As Long Bruger = InputBox("Indtast brugernavn") With ActiveSheet LCol = .Cells(1, .Columns.Count).End(xlToLeft).Column LRow = .Cells(.Rows.Count, "A").End(xlUp).Row If UCase(Bruger) = "BUTTERFLY" Then .Unprotect Intersect(.Range(.Cells(1, 1), .Cells(LRow, LCol)), _ .Range("2:2, 4:4, 8:8")).Locked = False .Protect Contents:=True .EnableSelection = xlUnlockedCells Else .Unprotect .Range(.Cells(1, 1), .Cells(LRow, LCol)).Locked = True .Protect End If End With Regards Claus B. -- Windows10 Office 2016 Thank you. That did the trick. Jan |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| VBA code to select rows | Excel Discussion (Misc queries) | |||
| select Range Code | Excel Programming | |||
| How do I select this range using code? | Excel Programming | |||
| Code to Select Row | Excel Programming | |||
Threaded Mode
