Sub FiligranEkleVeKilitle()
Dim ws As Worksheet
Dim filigran As Shape
' Aktif çalışma sayfasını seçin
Set ws = ActiveSheet
' Filigran metni ekleyin
Set filigran = ws.Shapes.AddTextEffect(msoTextEffect1, _
"MUSA ÖYLEK", "Arial Black", 36, msoFalse, msoFalse, 200, 200)
' Filigranı sayfa ortasına yerleştirin
With filigran
.LockAspectRatio = msoTrue
.Left = (ws.UsedRange.Width - .Width) / 2
.Top = (ws.UsedRange.Height - .Height) / 2
.Fill.Transparency = 0.8 ' Şeffaflığı ayarlayın
End With
' Filigranı kilitleyin
With filigran
.Locked = True
.LockAspectRatio = msoTrue
End With
' Çalışma sayfasını koruyun
ws.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFormattingCells:=True
MsgBox "Filigran eklendi ve kilitlendi.", vbInformation
End Sub