Thread
:
Code does not select
View Single Post
#
3
Posted to microsoft.public.excel.programming
[email protected]
external usenet poster
Posts: 40
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
Reply With Quote
[email protected]
View Public Profile
Find all posts by
[email protected]