Thread
:
Code does not select
View Single Post
#
2
Posted to microsoft.public.excel.programming
Claus Busch
external usenet poster
Posts: 3,872
Code does not select
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
Reply With Quote
Claus Busch
View Public Profile
Find all posts by Claus Busch