Ransomware – malware that gets on your customers’ computers, encrypts their data, and extorts a hefty ransom for the decryption keys – is a surging new threat. The purpose of this eBook is to educate the reader about ransomware attacks.
Public Function fntDisableControls(strFormName As String) 'If the claim is closed, lock the controls so changes cannot be made Dim frmName As Form frmName.Name = strFormName '''frmName.CmdScans.SetFocus Dim ctl As Control For Each ctl In frmName.Controls With ctl Select Case .ControlType Case acTextBox, acListBox, acComboBox .Locked = True .BackColor = 15461355 Case acCheckBox .Enabled = False .Locked = True End Select End With Next ctl 'Me.SubFrmGLdata.Enabled = False frmName.LblLocked.Visible = True frmName.CmdUnlock.Visible = True End Function
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.