Bir dahakine exceli gizletmeyip şifreleri vs.. kaldırıp yüklerseniz seviniriz çünkü şifre aramakla ve exceli açıp kapatıp açmakla debelenip duruyoruz.
Private Sub CommandButton12_Click() kodu içindeki On Error GoTo 0 satırını hemen üstüne alttaki kodu ekleyin tabii bakiye nasıl hesaplanıyorsa öyle ayarlayın alttaki kodu ben örnek olaraka yazdım.
ActiveCell.Offset(0, 11).Value = ActiveCell.Offset(0, 4).Value + ActiveCell.Offset(0, 5).Value